home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / musik / qmaster / tutor / requesters.rexx < prev    next >
OS/2 REXX Batch file  |  1998-02-01  |  1KB  |  47 lines
  1. /*
  2.     Tutorial arexx script. Demostrates comands of QMaster. You may use
  3.     these scripts as you like.
  4.  
  5.     Request
  6.     GetDir
  7.     GetFile
  8.     GetString
  9.  
  10.     By Kenneth C. Nilsen/Digital Surface. PUBLIC DOMAIN.
  11. */
  12.  
  13.  
  14. options results                    /*get RESULT from comands*/
  15. address command "LoadQM";if rc~=0 then exit 5    /* run QMASTER if needed */
  16.  
  17. address "QMASTER"                /* attention QMASTER...  */
  18.  
  19. /*--- here we use the comands --- --- --- --- --- --- --- --- --- --- ---*/
  20.  
  21. /* normal info requester */
  22.  
  23.     Request "'Request title'" "'This is a request\ncool ?'" "YES|WOW"
  24.  
  25. /* directory requester */
  26.  
  27.     GetDir "'Please pick a directory:'"
  28.     if rc=5 | RESULT="" then exit
  29.  
  30.     Request "'Demo dir requester'" "'You picked directory:\n\n"result"\n\nLets pick a file...'" "AWSOME!"
  31.  
  32. /* file requester */
  33.  
  34.     GetFile "'Please pick a file:'"
  35.     if rc=5 | RESULT="" then exit
  36.  
  37.     Request "'Demo file requester'" "'You picked file:\n\n"result"\n\nLets get a string...'" "SURE"
  38.  
  39. /* string requester */
  40.  
  41.     GetString "'GetString request'" "'Please type anything\nbelow:'"
  42.     if rc=5 then exit
  43.  
  44.     Request "'Demo string requester'" "'You wrote:\n\n"result"\n\nThat`s it!...'" "NICE|COOL|OHNO"
  45.  
  46.     exit 0
  47.